﻿Imports System.Data

Partial Class KYC_News
    Inherits Web.UI.BasePage
    Dim ds As DataSet
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        chkIsLogin()
       
    End Sub

    'Function checkpassword(ByVal pReceivePassword As String) As Boolean
    '    Dim i, TheNumber As Integer
    '    Dim x As String = ""
    '    Dim find As Boolean = False
    '    Dim bit1 As Boolean = False
    '    Dim bit2 As Boolean = False
    '    Dim bit3 As Boolean = False
    '    Dim bit4 As Boolean = False

    '    For i = 1 To Len(pReceivePassword)
    '        find = False
    '        x = Mid(pReceivePassword, i, i)
    '        TheNumber = Asc(x)

    '        If TheNumber >= Asc("a") Or TheNumber <= Asc("z") Then
    '            bit1 = True
    '        End If

    '        If TheNumber >= Asc("A") And TheNumber <= Asc("Z") Then
    '            bit2 = True
    '        End If

    '        If TheNumber >= Asc("0") And TheNumber <= Asc("9") Then
    '            bit3 = True
    '        End If

    '        If (TheNumber >= Asc("!") And TheNumber <= Asc("/")) Or TheNumber >= Asc(":") And TheNumber <= Asc("@") Or TheNumber >= Asc("[") And TheNumber <= Asc("`") Or TheNumber >= Asc("{") And TheNumber <= Asc("~") Then
    '            bit4 = True
    '        End If

    '        If bit1 And bit2 And bit3 And bit4 Then
    '            find = True
    '            Exit For
    '        End If

    '    Next

    '    Return find
    'End Function




End Class
